home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
Panorama3_d1.adf
/
ARexxMacros
/
Microscope.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-01-17
|
452b
|
26 lines
/* Draw a picture looking straight down at a small patch of the landscape
centered on the point whose labels are entered on the command line. */
OPTIONS RESULTS
address 'Panorama'
arg i j .
'GetRecursionLevel'
if rc = 0 then rlevel = RESULT
else exit
q = 1
do for rlevel-1
q = 3*q
end
x = 1000*i/q
y = 1732*j/q
'ObsX' x
'ObsY' y
'ObsZ 36000'
'TargetX' x
'TargetY' y
'TargetZ 0'
'BankAngle 0'
w = 1.0/3.0/q
'FocalLength' 52.5*q
'DrawPic'